Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ttedit/cd_find.frm

Text File | 1994-11-28 | 4KB | 142 lines

VERSION 2.00
Begin Form frmFind
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Find"
   ClientHeight    =   1560
   ClientLeft      =   1080
   ClientTop       =   5955
   ClientWidth     =   6225
   Height          =   1965
   Left            =   1020
   ScaleHeight     =   104
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   415
   Top             =   5610
   Width           =   6345
   Begin OptionButton optUp
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Up"
      Height          =   195
      Left            =   3000
      TabIndex        =   7
      Top             =   960
      Width           =   555
   End
   Begin OptionButton optDown
      BackColor       =   &H00C0C0C0&
      Caption         =   "&Down"
      Height          =   195
      Left            =   3780
      TabIndex        =   6
      Top             =   960
      Value           =   -1  'True
      Width           =   795
   End
   Begin CheckBox chkMatchCase
      BackColor       =   &H00C0C0C0&
      Caption         =   "Match &Case"
      Height          =   315
      Left            =   180
      TabIndex        =   2
      Top             =   1080
      Width           =   2535
   End
   Begin CheckBox chkWholeWord
      BackColor       =   &H00C0C0C0&
      Caption         =   "Match &Whole Word Only"
      Height          =   315
      Left            =   180
      TabIndex        =   1
      Top             =   660
      Visible         =   0   'False
      Width           =   2295
   End
   Begin CommandButton btnCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   4860
      TabIndex        =   4
      Top             =   600
      Width           =   1275
   End
   Begin CommandButton btnFindNext
      Caption         =   "&Find Next"
      Default         =   -1  'True
      Height          =   375
      Left            =   4860
      TabIndex        =   3
      Top             =   120
      Width           =   1275
   End
   Begin TextBox txtSearch
      Height          =   315
      Left            =   1320
      TabIndex        =   0
      Top             =   180
      Width           =   3375
   End
   Begin Label lblDirection
      AutoSize        =   -1  'True
      BackColor       =   &H00C0C0C0&
      Caption         =   " &Direction: "
      Height          =   195
      Left            =   3000
      TabIndex        =   8
      Top             =   660
      Width           =   960
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Fi&nd What:"
      Height          =   375
      Left            =   180
      TabIndex        =   5
      Top             =   240
      Width           =   975
   End
End
Option Explicit
Dim OriginalParenthWnd As Integer

Sub btnCancel_Click ()
   Hide
End Sub

Sub btnFindNext_Click ()
    Call FindNextText(CStr(txtSearch), CInt(optDown), CInt(chkMatchCase))
End Sub

Sub Form_Activate ()
    txtSearch.SelStart = 0
    txtSearch.SelLength = Len(txtSearch)
    txtSearch.SetFocus
End Sub

'
'  By calling the API this form will minimize and restore with the main MDI
'
Sub Form_Load ()
    OriginalParenthWnd = SetWindowWord(Me.hWnd, GWW_HWNDPARENT, MDI.hWnd)
End Sub

Sub Form_Paint ()
    Call Raiseform(Me)
    Call Indent(txtSearch)
    Call Frame(50, 190, 42, 124, lblDirection)
End Sub

'
' Reset the form back to the way it was
'
Sub Form_Unload (Cancel As Integer)
    If SetWindowWord(Me.hWnd, GWW_HWNDPARENT, OriginalParenthWnd) Then
    End If
End Sub

Sub Label1_Click ()
   txtSearch.SetFocus
End Sub